inherited fFornecedor: TfFornecedor
  Caption = 'Fornecedor'
  PixelsPerInch = 96
  TextHeight = 13
  inherited PageControl: TPageControl
    ActivePage = tshBase
    inherited tshSearch: TTabSheet
      inherited paSearch: TPanel
        object DBGrid1: TDBGrid
          Left = 5
          Top = 5
          Width = 650
          Height = 332
          Align = alClient
          DataSource = dsSearchBase
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'Tahoma'
          TitleFont.Style = []
          Columns = <
            item
              Expanded = False
              FieldName = 'FORNECEDOR_CODIGO'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'PES_NOME_REDUZIDO'
              Width = 376
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'PES_DOCUMENTO_NATUREZA'
              Visible = True
            end>
        end
      end
    end
  end
  inherited scdsSearchBase: TSimpleDataSet
    DataSet.CommandText = 
      'SELECT'#13#10'    A.PESSOA_CODIGO,'#13#10'    B.FORNECEDOR_CODIGO,'#13#10'    A.PE' +
      'S_NOME_REDUZIDO,'#13#10'    A.PES_DOCUMENTO_NATUREZA'#13#10'FROM PESSOA A'#13#10'J' +
      'OIN FORNECEDOR B ON B.PESSOA_CODIGO = A.PESSOA_CODIGO'#13#10'/*WHERE_N' +
      'EW*/'#13#10'/*ORDER_NEW*/'
    ReadOnly = True
    object scdsSearchBasePESSOA_CODIGO: TFMTBCDField
      FieldName = 'PESSOA_CODIGO'
      Required = True
      Precision = 15
      Size = 0
    end
    object scdsSearchBaseFORNECEDOR_CODIGO: TFMTBCDField
      DisplayLabel = 'C'#243'digo'
      FieldName = 'FORNECEDOR_CODIGO'
      Required = True
      Precision = 15
      Size = 0
    end
    object scdsSearchBasePES_NOME_REDUZIDO: TStringField
      DisplayLabel = 'Nome'
      FieldName = 'PES_NOME_REDUZIDO'
      Required = True
      Size = 50
    end
    object scdsSearchBasePES_DOCUMENTO_NATUREZA: TStringField
      DisplayLabel = 'Documento'
      FieldName = 'PES_DOCUMENTO_NATUREZA'
      Required = True
    end
  end
  object SimpleDataSet1: TSimpleDataSet
    Aggregates = <>
    DataSet.CommandText = 
      'SELECT'#13#10'    A.PESSOA_CODIGO,'#13#10'    B.FORNECEDOR_CODIGO,'#13#10'    A.PE' +
      'S_NOME_REDUZIDO,'#13#10'    A.PES_DOCUMENTO_NATUREZA'#13#10'FROM PESSOA A'#13#10'J' +
      'OIN FORNECEDOR B ON B.PESSOA_CODIGO = A.PESSOA_CODIGO'#13#10'/*WHERE_N' +
      'EW*/'#13#10'/*ORDER_NEW*/'
    DataSet.MaxBlobSize = -1
    DataSet.Params = <>
    MasterSource = dsSearchBase
    PacketRecords = 0
    Params = <>
    ReadOnly = True
    AfterOpen = scdsSearchBaseAfterOpen
    Left = 528
    Top = 64
    object FMTBCDField1: TFMTBCDField
      FieldName = 'PESSOA_CODIGO'
      Required = True
      Precision = 15
      Size = 0
    end
    object FMTBCDField2: TFMTBCDField
      DisplayLabel = 'C'#243'digo'
      FieldName = 'FORNECEDOR_CODIGO'
      Required = True
      Precision = 15
      Size = 0
    end
    object StringField1: TStringField
      DisplayLabel = 'Nome'
      FieldName = 'PES_NOME_REDUZIDO'
      Required = True
      Size = 50
    end
    object StringField2: TStringField
      DisplayLabel = 'Documento'
      FieldName = 'PES_DOCUMENTO_NATUREZA'
      Required = True
    end
  end
  object DataSource1: TDataSource
    AutoEdit = False
    DataSet = SimpleDataSet1
    Left = 560
    Top = 64
  end
end
